home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 9 / Night Owl CD-ROM (NOPV9) (Night Owl Publisher) (1993).ISO / 008a / feb93cad.zip / LL_INT.LSP < prev    next >
Lisp/Scheme  |  1993-02-12  |  416b  |  14 lines
  1. ; LL_INT.LSP
  2. ; Purpose: Loaded by XINT.LSP to find intersection 
  3. ; of two lines.  Variables are defined in XINT.LSP
  4. ; Version: 1.1
  5. ; Author: Glenn S. Lyford  5/20/90
  6. ; Revised: George E. Zinsmeister  10/20/90 
  7. ;==============================================
  8. ;
  9. (setq P (inters (cdr (assoc 10 EL1)) (cdr (assoc 11 EL1))
  10.                 (cdr (assoc 10 EL2))
  11.   (cdr (assoc 11 EL2)) nil)
  12. ) ; end ll_int.lsp
  13.  
  14.